home *** CD-ROM | disk | FTP | other *** search
/ El Mac 9 / El Mac 9.iso / Shareware / Applications / Charting Coach v1.5 / Charting Coach v1.dxr / 00069.ls < prev    next >
Encoding:
Text File  |  1996-04-08  |  519 b   |  20 lines
  1. on mouseUp
  2.   global cycleNo, userNo
  3.   if the doubleClick then
  4.     exit
  5.   end if
  6.   if getAt(cycleNo, userNo) > 1 then
  7.     put getAt(cycleNo, userNo) - 1 into field "cycle number"
  8.     put 1 into field "begin number"
  9.     put 30 into field "end number"
  10.     set the hilite of member "current daily" to 0
  11.     set the hilite of member "previous daily" to 1
  12.     go("print daily previous")
  13.     cursor(0)
  14.   else
  15.     set the hilite of member "previous daily" to 0
  16.     cursor(0)
  17.     alert("No previous cycles found.")
  18.   end if
  19. end
  20.